home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh15a.d64 / -maus dos basic (.txt) next >
Commodore BASIC  |  1995-03-30  |  29KB  |  1,042 lines
  1. 100 REM ***** MAUS DOS 64 *****
  2. 110 REM (C) 1986 BY DIRK JANSEN
  3. 120 REM + BENOETIGT 'MAUSI 64'+
  4. 130 REM (C) 1986 BY DIRK JANSEN
  5. 140 REM
  6. 150 REM    V1.0 - 04.05.1986
  7. 160 REM -----------------------
  8. 170 :
  9. 172 REM @S1024
  10. 174 REM @E20000
  11. 176 :
  12. 180 DA=PEEK(186):IF DA<>9 THEN DA=8:REM - FLOPPY ADRESSE
  13. 200 IF F=0 THEN F=-1:LOAD"MAUSI 64",DA,1
  14. 210 IF F=1 THEN 31280
  15. 220 IF F=2 THEN 31300
  16. 300 POKE 788,PEEK(788)+3:REM - STOPTASTE AUSSCHALTEN
  17. 470 :
  18. 480 REM *** MAUS FUNKTIONEN ***
  19. 490 :
  20. 500 DEF FNAD(X)=49152+3*X
  21. 510 DEF FNPA(X)=679+X
  22. 520 DEF FNVA(X)=PEEK(FNPA(X))
  23. 530 DEF FNWO(X)=PEEK(X)+PEEK(X+1)*256
  24. 540 DEF FNLO(X)=X AND 255
  25. 550 DEF FNHI(X)=INT(X/256)
  26. 560 DEF FNXP(X)=FNWO(682+X*3)-24
  27. 570 DEF FNYP(X)=PEEK(681+X*3)-34
  28. 580 DEF FNXT(X)=INT(FNXP(X)/8)-1
  29. 590 DEF FNYT(X)=INT(FNYP(X)/8)-1
  30. 600 DEF FNKY(X)=PEEK(680+X*17)
  31. 610 DEF FNPO(X)=PEEK(695+X)
  32. 620 DEF FNST(X)=(FNPO(0)-160)/4
  33. 630 DEF FNER(X)=PEEK(698)
  34. 640 DEF FNSP(X)=PEEK(693)
  35. 650 DEF FNDT(X)=-(PEEK(703) AND 15)*(X=0)-(PEEK(703) AND 2^(8-X))/2^(8-X)*(X>0)
  36. 660 DEF FNKA(X)=680+X*13
  37. 670 :
  38. 680 REM *** DIM ARRAYS  ***
  39. 690 :
  40. 700 DIM NP$(19) :REM - NOTE PAD INHALT
  41. 710 DIM FE$(143):REM - FILE ENTERYS
  42. 720 DIM TY$(4)  :REM - FILE TYPES
  43. 730 DIM CO$(15) :REM - COLOR NAMES
  44. 740 DIM NO$(9)  :REM - OPTIONS NAME
  45. 750 DIM FO$(9)  :REM - OPTIONS FILE NAME
  46. 760 DIM SO(9)   :REM - OPTIONS STARTADR
  47. 762 DIM ER$(29) :REM - FEHLERMELDUNGEN
  48. 770 :
  49. 780 REM *** VARIABELN ***
  50. 790 :
  51. 810 DN$="0"     :REM - UNIT
  52. 820 PA=4        :REM - PRINTER ADR
  53. 830 PS=7        :REM - PRINTER SEC.
  54. 870 :
  55. 880 REM *** READ DATA ***
  56. 890 :
  57. 900 RESTORE
  58. 910 FOR I=0 TO 15:READ CO$(I):NEXT I:REM - READ COLOR NAMES
  59. 920 FOR I=0 TO 4:READ TY$(I):NEXT I:REM - READ FILE TYPE NAMES
  60. 930 FOR I=0 TO 29:READ ER$(I):NEXT I:REM - READ ERROR TEXT
  61. 970 :
  62. 980 REM *** HAUPT PROGRAMM ***
  63. 990 :
  64. 1000 GOSUB 40000:REM - SHOW SCREEN
  65. 1002 GOSUB 42000:REM - READ PARAMETER
  66. 1010 GOSUB 41000:REM - INSERT DISK
  67. 1030 GOSUB 43000:REM - READ NOTE PAD
  68. 1040 GOSUB 44000:REM - READ OPTIONS
  69. 1050 GOSUB 45000:REM - READ DIRECTORY
  70. 1100 SF%=0:MF%=144
  71. 1110 GOSUB 54000
  72. 1120 F%=0:GOSUB 51000:IF F%=1 THEN GOSUB 54000:GOTO 1200
  73. 1122 IF F%=2 THEN 1200
  74. 1124 IF F%=3 THEN GOSUB 54000
  75. 1130 IF YP=2 AND XP>9 AND XP<26 AND SF%+40<=AF% THEN SF%=SF%+40:GOTO 1110
  76. 1132 IF YP=2 AND XP>25 AND SF%-40=>0 THEN SF%=SF%-40:GOTO 1110
  77. 1134 IF YP<4 OR YP>23 THEN 1120
  78. 1140 IF FL THEN 2000
  79. 1150 A=-(XP>20)*20+YP-4
  80. 1160 IF SF%+A>AF% THEN GOTO 1120
  81. 1170 SYS FNAD(16),4,1,20,1,32,PEEK(646)
  82. 1180 SYS FNAD(16),4,21,20,1,32,PEEK(646)
  83. 1190 SYS FNAD(13),YP,1-(XP>20)*20:PRINT"[186]";:MF%=SF%+A
  84. 1200 NF$=FE$(MF%)
  85. 1210 SYS FNAD(13),24,7:PRINT "";MID$(NF$,2,16);"[146]";
  86. 1220 A=ASC(LEFT$(NF$,1)+CHR$(0)):TY$=" ":IF (A AND 128)=0 THEN TY$="*"
  87. 1230 TY$=TY$+TY$(A AND 7)
  88. 1240 IF (A AND 64) THEN TY$=TY$+"<"
  89. 1250 SYS FNAD(13),24,28:PRINT "";LEFT$(TY$+" ",5);"[146]";
  90. 1260 A=ASC(MID$(NF$,18,1)+CHR$(0))+ASC(MID$(NF$,19,1)+CHR$(0))*256
  91. 1270 SYS FNAD(13),24,38:PRINT "";RIGHT$("  "+STR$(A),3);"[146]";
  92. 1280 SYS FNAD(13),25,37:PRINT "";RIGHT$("  "+STR$(FB%),3);"[146]";
  93. 1290 GOTO 1120
  94. 2000 IF (FL AND 2)=2 THEN FL=FL AND 253:GOTO 1010
  95. 2010 IF (FL AND 4)<>4 THEN 2060
  96. 2050 SYS 64738
  97. 2060 IF (FL AND 8)<>8 THEN 1120
  98. 2100 PRINT"[147]";CHR$(9);CHR$(142);
  99. 2110 PRINT"LOAD"+CHR$(34);
  100. 2120 FOR I=1 TO 16:A$=MID$(FE$(MF%),1+I,1):IF A$<>CHR$(160) THEN PRINT A$;
  101. 2130 NEXT I:PRINT CHR$(34);",";DA;",1"
  102. 2140 PRINT""
  103. 2150 PRINT"RUN"
  104. 2160 POKE 631,19:POKE 632,13:POKE 633,13:POKE 198,3:END
  105. 9999 PRINT"DEAD END":GOTO 9999
  106. 19970 :
  107. 19980 REM *** FEHLER BEHANDLUNG ***
  108. 19990 :
  109. 20000 PRINT:PRINT"[147]";CHR$(14);CHR$(8):POKE 198,0
  110. 20010 PRINT TAB(10);"********************"
  111. 20020 PRINT TAB(10);"*                  *"
  112. 20030 PRINT TAB(10);"*  [211][217][211][212][197][205] [160][198][197][200][204][197][210]  *"
  113. 20040 PRINT TAB(10);"*                  *"
  114. 20050 PRINT TAB(10);"********************"
  115. 20060 PRINT""
  116. 20070 PRINT"Z.[194].: [196]RUECKEN VON [211][212][207][208]/[210][197][211][212][207][210][197]"
  117. 20080 PRINT"      [196]ISKETTENFEHLER"
  118. 20090 PRINT"      [198]EHLER BEIM [208]ROGRAMMSTART"
  119. 20092 PRINT"      [196]RUCKER NICHT ANGESCHLOSSEN"
  120. 20100 PRINT""
  121. 20110 PRINT "[194]ITTE DRUECKEN [211]IE:"
  122. 20120 PRINT " F1 [146]  [203]ALTSTART"
  123. 20130 PRINT " F3 [146]  [215]ARMSTART ([196]ISK. WECHSELN)"
  124. 20140 PRINT " F5 [146]  [194][193][211][201][195] [214]2.0 ([210]ESET)"
  125. 20150 PRINT " F7 [146]  [198]EHLERQUELLE"
  126. 20160 PRINT"              "
  127. 20170 GET A$:IF A$<>"" THEN 20200
  128. 20180 PRINT"[211][217][211][212][197][205]  [198][197][200][204][197][210]"
  129. 20190 GET A$:IF A$="" THEN 20160
  130. 20200 IF A$="[133]" THEN RUN
  131. 20210 IF A$="[134]" THEN 1000
  132. 20220 IF A$="[135]" THEN SYS 64738
  133. 20230 IF A$<>"[136]" THEN 20160
  134. 20240 PRINT"[147]"
  135. 20250 PRINT,"* [198]EHLERQUELLE *"
  136. 20260 PRINT""
  137. 20262 A=PEEK(700):IF A>29 THEN A=0
  138. 20270 PRINT"[198]EHLERART:    ";ER$(A)
  139. 20280 PRINT""
  140. 20290 PRINT"[198]EHLERNUMMER:";A
  141. 20300 PRINT""
  142. 20310 PRINT,"- [194]ITTE [212]ASTE [196]RUECKEN -"
  143. 20320 GET A$:IF A$="" THEN 20320
  144. 20330 GOTO 20000
  145. 29970 :
  146. 29980 REM *** PARAMETER ***
  147. 29990 :
  148. 30000 SYS FNAD(7) :REM - SCR RETTEN
  149. 30002 SYS FNAD(13),4,1
  150. 30010 PRINT SPC(26);"[176][192][192][189]        [221][146]"
  151. 30020 PRINT SPC(26);"[221] [212]EXT-     [221][146]"
  152. 30030 PRINT SPC(26);"[221] [210]AHMEN-   [221][146]"
  153. 30040 PRINT SPC(26);"[221] [194]ILD-     [221][146]"
  154. 30050 PRINT SPC(26);"[221] [205]AUSFARBE [221][146]"
  155. 30060 PRINT SPC(26);"[171][192][192][192][192][192][192][192][192][192][192][192][179][146]"
  156. 30070 PRINT SPC(26);"[221] [196]RUCKER-  [221][146]"
  157. 30080 PRINT SPC(26);"[221] [198]LOPPY-   [221][146]"
  158. 30090 PRINT SPC(26);"[221] [205]AUSDATEN [221][146]"
  159. 30100 PRINT SPC(26);"[171][192][192][192][192][192][192][192][192][192][192][192][179][146]"
  160. 30102 PRINT SPC(26);"[221][160][211]PEICHERN [221][146]"
  161. 30104 PRINT SPC(26);"[173][192][192][192][192][192][192][192][192][192][192][192][189][146]"
  162. 30110 GOSUB 51000:XO=XP:YO=YP:IF YP<3 OR YP>15 THEN XP=0
  163. 30120 IF XP<27 THEN FL=FLOR1:SYS FNAD(8):SYS FNAD(18):RETURN
  164. 30130 IF YP=4 OR YP=9 OR YP=13 THEN 30110
  165. 30140 ON YP-4 GOSUB 30160,30170,30180,30190,20000,30500,30300,30400,20000,46000
  166. 30150 GOTO 30110
  167. 30160 A=646:A$="[212]EXTFARBE":GOTO 30200
  168. 30170 A=53280:A$="[210]AHMENF.":GOTO 30200
  169. 30180 A=53281:A$="[194]ILDFARBE":GOTO 30200
  170. 30190 A=703:A$="[205]AUSFARBE"
  171. 30200 B=PEEK(A) AND 15:SYS FNAD(7)
  172. 30210 SYS FNAD(13),4,1
  173. 30212 PRINT TAB(12);"[176][192][192][192][192][192][192][192][192][192][192][192][174][146]"
  174. 30214 PRINT TAB(12);"[221][146] ";LEFT$(A$+"         ",9);" [221][146]"
  175. 30216 PRINT TAB(12);"[171][192][192][192][192][192][192][192][192][192][192][192][179][146]"
  176. 30220 FOR I=0 TO 15
  177. 30230 PRINT TAB(12);"[221] ";
  178. 30240 IF I=B THEN PRINT"[157][186]";
  179. 30250 PRINT LEFT$(CO$(I)+"         ",9);" [221][146]
  180. 30260 [130] I
  181. 30270 [153] [163]12);"/TANTANTANTANTANTANTANTANTANTANTANEXPWAIT"
  182. 30280 [141] 51000:XO[178]XP:[139] YP[179]7 [176] YP[177]23 [167] XP[178]0
  183. 30282 [139] XP[179]13 [176] XP[177]23 [167] YO[178]YP:FL[178]FL [176] 1:[158] [165]AD(8):[158] [165]AD(18):[142]
  184. 30290 B[178]YP[171]7:[151] A,([194](A) [175] 240)[170](B [175] 15):[158] [165]AD(18):[137] 30210
  185. 30300 [158] [165]AD(7)
  186. 30310 [158] [165]AD(13),4,1
  187. 30311 [153] [163]12);"ORTANTANTANTANTANTANTANTANTANTANTANTANTAN^WAIT"
  188. 30312 [153] [163]12);"(null)WAIT ASCLOPPYDATEN (null)WAIT"
  189. 30314 [153] [163]12);"-TANTANTANTANTANTANTANTANTANTANTANTANTAN<WAIT"
  190. 30316 [153] [163]12);"(null) ATNDRESSE: 8  (null)WAIT"
  191. 30318 [153] [163]12);"(null) ATNDRESSE: 9  (null)WAIT"
  192. 30320 [153] [163]12);"-TANTANTANTANTANTANTANTANTANTANTANTANTAN<WAIT"
  193. 30322 [153] [163]12);"(null) STR$RIVE:   0  (null)WAIT"
  194. 30324 [153] [163]12);"(null) STR$RIVE:   1  (null)WAIT"
  195. 30326 [153] [163]12);"/TANTANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT"
  196. 30328 [158] [165]AD(13),DA[171]1,14:[153]"SQRWAIT"
  197. 30329 [158] [165]AD(13),[197](DN$)[170]10,14:[153]"SQRWAIT"
  198. 30330 [141] 51000:YO[178]YP:[139] XP[179]13 [176] XP[177]25 [167] YP[178]0
  199. 30332 [139] YP[179]7 [176] YP[177]11 [167] XO[178]YO:FL[178]FL [176] 1:[158] [165]AD(8):[158] [165]AD(18):[142]
  200. 30340 [139] YP[178]7 [167] DA[178]8
  201. 30342 [139] YP[178]8 [167] DA[178]9
  202. 30344 [139] YP[178]10 [167] DN$[178]"0"
  203. 30346 [139] YP[178]11 [167] DN$[178]"1"
  204. 30350 [137] 30310
  205. 30400 [158] [165]AD(7):[158] [165]AD(13),4,1
  206. 30410 [153] [163]12);"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^WAIT"
  207. 30412 [153] [163]12);"(null) WAIT   (null)AUSSTR$ATEN    (null)WAIT"
  208. 30414 [153] [163]12);"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<WAIT"
  209. 30416 [153] [163]12);"(null) DOPPELT BREIT   (null)WAIT"
  210. 30418 [153] [163]12);"(null) DOPPELT HOCH    (null)WAIT"
  211. 30420 [153] [163]12);"(null) HINTER (null)CHRIFT  (null)WAIT"
  212. 30422 [153] [163]12);"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<WAIT"
  213. 30424 [153] [163]12);"(null) CHR$ESCHWINDIGKEIT (null)WAIT"
  214. 30426 [153] [163]12);"(null) = ";[201](" "[170][196]([194](693)),3);"           (null)WAIT"
  215. 30430 [153] [163]12);"-TANTANTANTANTANTANTANTAN=TANTANTANTANTANTANTANTAN<WAIT"
  216. 30432 [153] [163]12);"(null)  + 1   (null)  +10   (null)WAIT"
  217. 30433 [153] [163]12);"-TANTANTANTANTANTANTANTAN(null)TANTANTANTANTANTANTANTAN<WAIT"
  218. 30434 [153] [163]12);"(null)  - 1   (null)  -10   (null)WAIT"
  219. 30436 [153] [163]12);"/TANTANTANTANTANTANTANTAN>TANTANTANTANTANTANTANTANEXPWAIT"
  220. 30440 [158] [165]AD(13),7,14:[153]" WAIT":[139] [165]DT(1) [167] [158] [165]AD(13),7,14:[153]"SQRWAIT"
  221. 30442 [158] [165]AD(13),8,14:[153]" WAIT":[139] [165]DT(2) [167] [158] [165]AD(13),8,14:[153]"SQRWAIT"
  222. 30444 [158] [165]AD(13),9,14:[153]" WAIT":[139] [165]DT(3) [167] [158] [165]AD(13),9,14:[153]"SQRWAIT"
  223. 30450 [141] 51000:XO[178]XP:[139] YP[179]7 [176] YP[177]17 [167] XP[178]0
  224. 30452 [139] XP[179]13 [176] XP[177]30 [167] YO[178]YP:FL[178]FL [176] 1:[158] [165]AD(8):[158] [165]AD(18):[142]
  225. 30460 [139] YP[178]7 [167] [151] 703,([194](703) [175] 127)[170](1[171][165]DT(1))[172]128
  226. 30462 [139] YP[178]8 [167] [151] 703,([194](703) [175] 191)[170](1[171][165]DT(2))[172]64
  227. 30464 [139] YP[178]9 [167] [151] 703,([194](703) [175] 223)[170](1[171][165]DT(3))[172]32
  228. 30466 [139] YP[178]14 [175] XP[179]22 [175] [194](693)[179]255 [167] [151] 693,[194](693)[170]1
  229. 30468 [139] YP[178]14 [175] XP[177]22 [175] [194](693)[179]245 [167] [151] 693,[194](693)[170]10
  230. 30470 [139] YP[178]16 [175] XP[179]22 [175] [194](693)[177]0 [167] [151] 693,[194](693)[171]1
  231. 30472 [139] YP[178]16 [175] XP[177]22 [175] [194](693)[177]10 [167] [151] 693,[194](693)[171]10
  232. 30480 [158] [165]AD(13),12,17
  233. 30482 [153] "";[201]("  "[170][196]([194](693)),3);"WAIT"
  234. 30490 [137] 30440
  235. 30500 [158] [165]AD(7):[158] [165]AD(13),4,1
  236. 30510 [153] [163]12);"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^WAIT"
  237. 30512 [153] [163]12);"(null)WAIT  STR$RUCKER-STR$ATEN  (null)WAIT"
  238. 30514 [153] [163]12);"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<WAIT"
  239. 30516 [153] [163]12);"(null) STR$RUCKERADRESSE  (null)WAIT"
  240. 30518 [153] [163]12);"(null) (null)WEITADRESSE    (null)WAIT"
  241. 30520 [153] [163]12);"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<WAIT"
  242. 30522 [153] [163]12);"(null) (null)TEUERZEICHEN:  (null)WAIT"
  243. 30524 [153] [163]12);"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<WAIT"
  244. 30526 [153] [163]12);"(null) 8 (null)(null)RIGHT$ EIN       (null)WAIT"
  245. 30528 [153] [163]12);"(null) CHR$ROSS/(null)LEIN EIN (null)WAIT"
  246. 30530 [153] [163]12);"(null) (null)EVERS EIN      (null)WAIT"
  247. 30532 [153] [163]12);"(null) (null)EVERS AUS      (null)WAIT"
  248. 30534 [153] [163]12);"(null) (null)AGENRUECKLAUF  (null)WAIT"
  249. 30536 [153] [163]12);"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT"
  250. 30540 [141] 51000:XO[178]XP:[139] YP[179]7 [176] YP[177]16 [167] XP[178]0
  251. 30542 [139] XP[179]13 [176] XP[177]30 [167] FL[178]FL [176] 1:YO[178]YP:[158] [165]AD(8):[158] [165]AD(18):[142]
  252. 30550 [139] YP[178]7 [167] F$[178]"STR$RUCKERADRESSE?":T$[178][202]([196](PA),2):L[178]3:[141] 53000
  253. 30552 [139] YP[178]7 [175] F[178]0 [167] PA[178][197](T$)
  254. 30560 [139] YP[178]8 [167] F$[178]"(null)WEITADRESSE?":T$[178][202]([196](PS),2):L[178]3:[141] 53000
  255. 30562 [139] YP[178]8 [175] F[178]0 [167] PS[178][197](T$)
  256. 30570 [139] YP[178]12 [167] A$[178]LP$:F$[178]"8 (null)(null)RIGHT$ EIN (LEFT$EX)":[141] 30900:LP$[178]A$
  257. 30580 [139] YP[178]13 [167] A$[178]GK$:F$[178]"CHR$ROSS/(null)LEIN EIN":[141] 30900:GK$[178]A$
  258. 30590 [139] YP[178]14 [167] A$[178]RE$:F$[178]"(null)EVERS EIN (LEFT$EX)":[141] 30900:RE$[178]A$
  259. 30600 [139] YP[178]15 [167] A$[178]RA$:F$[178]"(null)EVERS AUS (LEFT$EX)":[141] 30900:RA$[178]A$
  260. 30610 [139] YP[178]16 [167] A$[178]CR$:F$[178]"(null)AGENRUECKLAUF":[141] 30900:CR$[178]A$
  261. 30620 [137] 30540
  262. 30900 T$[178]"":X$[178]A$:[129] I[178]1 [164] [195](A$)
  263. 30902 T$[178]T$[170][202]("0123456789ABCDEF",([198]([202](A$,I)[170][199](0))[173]16)[170]1,1)
  264. 30904 T$[178]T$[170][202]("0123456789ABCDEF",([198]([202](A$,I)[170][199](0))[175] 15)[170]1,1)
  265. 30906 [130] I:L[178]16:[141] 53000:[139] F [167] A$[178]X$:[142]
  266. 30910 A$[178]"":[129] I[178]1 [164] [195](T$) [169] 2
  267. 30912 B$[178][202](T$,I,1):B[178][197](B$):[139] B$[177][178]"A" [175] B$[179][178]"F" [167] B[178]B[170][198](B$)[171]55
  268. 30914 B$[178][202](T$,I[170]1,1):C[178][197](B$):[139] B$[177][178]"A" [175] B$[179][178]"F" [167] C[178]C[170][198](B$)[171]55
  269. 30916 A$[178]A$[170][199](B[172]16[170]C):[130] I:[142]
  270. 30970 :
  271. 30980 [143] *** ZUSATZ ***
  272. 30990 :
  273. 31000 [158] [165]AD(7):[158] [165]AD(13),4,1
  274. 31010 [153] [163]15);"ORTANTANTANTANTANEXP      /TANTANTANTANTAN^WAIT"
  275. 31020 [139] AO%[177]0 [167] 31200
  276. 31030 [153] [163]15);"(null)                  (null)WAIT"
  277. 31040 [153] [163]15);"(null) (null)EINE (null)USATZ     (null)WAIT"
  278. 31050 [153] [163]15);"(null) (null)PERATIONEN      (null)WAIT"
  279. 31060 [153] [163]15);"(null) VORHANDEN        (null)WAIT"
  280. 31070 [153] [163]15);"(null)                  (null)WAIT"
  281. 31080 [153] [163]15);"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT"
  282. 31090 [141] 51000:XO[178]XP:[139] YO[179]3 [176] YO[177]10 [167] XP[178]0
  283. 31092 [139] XP[179]15 [176] XP[177]31 [167] [158] [165]AD(8):[158] [165]AD(18):YO[178]YP:FL[178]FL [176] 1:[142]
  284. 31094 [137] 31090
  285. 31200 [129] I[178]0 [164] AO%[171]1
  286. 31210 [153] [163]15);"(null) ";[200](NO$(I)[170]"               ",16);" (null)WAIT"
  287. 31220 [130] I
  288. 31230 [153] [163]15);"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT"
  289. 31240 [141] 51000:XO[178]XP:[139] YP[179]3 [176] YP[177]AO%[170]4 [167] XP[178]0
  290. 31250 [139] XP[179]16 [176] XP[177]34 [167] [158] [165]AD(8):[158][165]AD(18):YO[178]YP:FL[178]FL [176] 1:[142]
  291. 31260 [139] YP[179]5 [167] 31240
  292. 31270 F[178]1:[147] DN$[170]":"[170]FO$(YP[171]5),DA,1
  293. 31280 [153]"LOAD";:[158] SO(YP[171]5)
  294. 31290 F[178]2:[147]"MAUSI 64",DA,1
  295. 31300 [158] [165]AD(10):[158] [165]AD(18):[137] 1100
  296. 31970 :
  297. 31980 [143] *** FILE ***
  298. 31990 :
  299. 32000 [158] [165]AD(7) :[143] - SCR RETTEN
  300. 32002 [158] [165]AD(13),4,1
  301. 32010 [153] "(null)    /TANTANTANTANTANTANTAN^WAIT"
  302. 32011 [139] MF%[178]144 [167] 32400
  303. 32012 [153] "(null) (null)OESCHEN   (null)WAIT"
  304. 32014 [153] "(null) (null)MBENENNEN (null)WAIT"
  305. 32016 [153] "(null) (null)ERDOPPELN (null)WAIT"
  306. 32018 [153] "(null) ATNNHAENGEN  (null)WAIT"
  307. 32020 [153] "(null) (null)CHUETZEN  (null)WAIT"
  308. 32022 [153] "(null) ATNUFHEBEN   (null)WAIT"
  309. 32024 [153] "(null) (null)CHLIESSEN (null)WAIT"
  310. 32026 [153] "/TANTANTANTANTANTANTANTANTANTANTANTANEXP"
  311. 32030 [141] 51000:XO[178]XP:YO[178]YP:[139] YP[179]3 [176] YP[177]12 [167] XP[178]99
  312. 32032 [139] XP[177]14 [167] [158] [165]AD(8):[158] [165]AD(18):FL[178]FL [176] 1:[142]
  313. 32040 A[178]YP[171]4:[139] YP[179]1 [167] 32030
  314. 32042 [145] A [141] 32050,32070,32100,32230,32140,32210,32220
  315. 32044 [137] 32030
  316. 32050 FB%[178]FB%[170][198]([202](FE$(MF%),18))[170][198]([202](FE$(MF%),19))[172]256
  317. 32052 T1$[178][202](FE$(MF%),2,16)
  318. 32053 T2$[178]"(null)OESCHEN?"
  319. 32054 [141] 55000:[139] F [167] [142]
  320. 32055 [139] [201](T1$,1)[178][199](160) [167] T1$[178][200](T1$,[195](T1$)[171]1):[137] 32055
  321. 32056 [159] 15,DA,15,"S"[170]DN$[170]":"[170]T1$
  322. 32058 [160] 15
  323. 32060 [129] I[178]MF% [164] AF%
  324. 32062 FE$(I)[178]FE$(I[170]1)
  325. 32064 [130] I
  326. 32066 AF%[178]AF%[171]1:F%[178]1
  327. 32068 [142]
  328. 32070 T$[178][202](FE$(MF%),2,16)
  329. 32072 [139] [201](T$,1)[178][199](160) [167] T$[178][200](T$,[195](T$)[171]1):[137] 32072
  330. 32074 TA$[178]T$
  331. 32075 F$[178]"(null)EUER (null)AME?":L[178]16
  332. 32076 [141] 53000:[139] F [167] [142]
  333. 32078 T$[178][200](T$,16):TN$[178]T$
  334. 32080 [139] [195](T$)[179]16 [167] T$[178]T$[170][199](160):[137] 32080
  335. 32082 FE$(MF%)[178][200](FE$(MF%),1)[170]T$[170][202](FE$(MF%),18):F%[178]1
  336. 32090 [159] 15,DA,15,"R"[170]DN$[170]":"[170]TN$[170]"="[170]TA$:[160] 15:[142]
  337. 32100 F$[178]"(null)AME DER (null)OPIE?":L[178]16:T$[178]"":[141] 53000:[139] F [167] [142]
  338. 32110 A$[178][202](FE$(MF%),2,16)
  339. 32112 [139] [201](A$,1)[178][199](160) [167] A$[178][200](A$,[195](A$)[171]1):[137] 32112
  340. 32120 [159] 15,DA,15,"C"[170]DN$[170]":"[170]T$[170]"="[170]DN$[170]":"[170]A$:[160] 15
  341. 32130 [141] 45000:F%[178]1:[142]
  342. 32140 A[178][198](FE$(MF%)):A[178]A [176] 64:FE$(MF%)[178][199](A)[170][202](FE$(MF%),2)
  343. 32150 [159] 15,DA,15:[159] 2,DA,2,"#"
  344. 32160 [152]15,"U1: 2 ";DN$;[198]([202](FE$(MF%),20));[198]([202](FE$(MF%),21))
  345. 32170 [152]15,"B-P: 2";[198]([202](FE$(MF%),22))
  346. 32180 [152]2,[199](A);
  347. 32190 [152]15,"U2: 2 ";DN$;[198]([202](FE$(MF%),20));[198]([202](FE$(MF%),21))
  348. 32200 [160] 2:[160] 15:F%[178]2:[142]
  349. 32210 A[178][198](FE$(MF%)):A[178]A [175] 191:FE$(MF%)[178][199](A)[170][202](FE$(MF%),2):[137] 32150
  350. 32220 A[178][198](FE$(MF%)):A[178]A [176] 128:FE$(MF%)[178][199](A)[170][202](FE$(MF%),2):[137] 32150
  351. 32230 F$[178]"AN WELCHE STR$ATEI?":T$[178]"":L[178]16:[141] 53000:[139] F [167] [142]
  352. 32240 F$[178]"(null)AME NEUE STR$ATEI?":N$[178]T$:T$[178]"":[141] 53000:[139] F [167] [142]
  353. 32250 A$[178][202](FE$(MF%),2,16)
  354. 32260 [139] [201](A$,1)[178][199](160) [167] A$[178][200](A$,[195](A$)[171]1):[137] 32260
  355. 32270 [139] N$[178]T$ [176] T$[178]A$ [176] N$[178]A$ [167] T1$[178]"STR$IE (null)AMEN MUESSEN"
  356. 32280 [139] N$[178]T$ [176] T$[178]A$ [176] N$[178]A$ [167] T2$[178]"(null)ERSCHIEDEN SEIN":[141] 50000:[142]
  357. 32290 [159] 15,DA,15,"C"[170]DN$[170]":"[170]T$[170]"="[170]DN$[170]":"[170]A$[170]","[170]DN$[170]":"[170]N$:[160] 15
  358. 32300 [141] 45000:F%[178]1:[142]
  359. 32400 [153] "(null)            (null)WAIT"
  360. 32410 [153] "(null) (null)EIN ASCILE  (null)WAIT"
  361. 32420 [153] "(null) MARKIERT   (null)WAIT"
  362. 32430 [153] "(null)            (null)WAIT"
  363. 32440 [153] "/TANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT"
  364. 32450 [141] 51000:XO[178]XP:[139] YP[179]4 [176] YP[177]9 [167] XP[178]255
  365. 32460 [139] XP[179]15 [167] 32450
  366. 32470 [158] [165]AD(8):[158] [165]AD(18):YO[178]YP:FL[178]FK [176] 1:[142]
  367. 32970 :
  368. 32980 [143] *** DISK ***
  369. 32990 :
  370. 33000 [158] [165]AD(7) :[143] - SCR RETTEN
  371. 33010 [158] [165]AD(13),4,1
  372. 33020 [153] [163]5);"OREXP    /TANTANTANTANTANTANTAN^WAIT"
  373. 33030 [153] [163]5);"(null) ASCORMATIEREN (null)WAIT"
  374. 33040 [153] [163]5);"(null) (null)MBENENNEN  (null)WAIT"
  375. 33050 [153] [163]5);"(null) ATNUFRAEUMEN  (null)WAIT"
  376. 33060 [153] [163]5);"(null) (null)OESCHEN    (null)WAIT"
  377. 33070 [153] [163]5);"(null) (null)CHUETZEN   (null)WAIT"
  378. 33080 [153] [163]5);"(null) ATNUFHEBEN    (null)WAIT"
  379. 33090 [153] [163]5);"/TANTANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT"
  380. 33100 [141] 51000:XO[178]XP:YO[178]YP:[139] YP[179]4 [176] YP[177]11 [167] XP[178]0
  381. 33110 [139] XP[179]5 [176] XP[177]19 [167] [158] [165]AD(8):[158] [165]AD(18):FL[178]FL [176] 1:[142]
  382. 33120 [139] YP[178]4 [176] YP[178]11 [167] 33100
  383. 33130 [145] YP[171]4 [141] 33150,33210,33320,33360,33500,33650
  384. 33140 [139] F[178]0 [167] [141] 45000:F%[178]3:MF%[178]144
  385. 33142 [137] 33100
  386. 33150 F$[178]"STR$ISK (null)AME?":T$[178]"":L[178]16:[141] 53000:N$[178]T$:[139] F [167] [142]
  387. 33160 F$[178]"STR$ISK RIGHT$STR$?":T$[178]"":L[178]2:[141] 53000:[139] F [167] [142]
  388. 33170 T1$[178]"STR$ISK ASCORMATIEREN"
  389. 33180 T2$[178]"(null)IND (null)IE SICHER?"
  390. 33190 [141] 55000:[139] F [167] [142]
  391. 33200 [159] 15,DA,15,"N"[170]DN$[170]":"[170]N$[170]","[170]T$:[160] 15:[142]
  392. 33210 F$[178]"NEUER (null)AME?":T$[178][200](DH$,16):L[178]16:[141] 53000:[139] F [167] [142]
  393. 33220 F$[178]"NEUE RIGHT$STR$?":N$[178]T$:T$[178][202](DH$,19,5):L[178]5:[141] 53000:[139] F [167] [142]
  394. 33230 [159] 15,DA,15:[159] 2,DA,2,"#"
  395. 33240 [152]15,"U1: 2 ";DN$;18;0
  396. 33250 [152]15,"B-P: 2 144"
  397. 33260 [139] [195](N$)[179]16 [167] N$[178]N$[170][199](160):[137] 33260
  398. 33270 [152]2,N$;
  399. 33280 [152]15,"B-P: 2 162"
  400. 33290 [152]2,T$[170][201]("XX"[170][199](160)[170]"2A",5[171][195](T$));
  401. 33300 [152]15,"U2: 2 ";DN$;18;0
  402. 33310 [160] 2:[160] 15:[142]
  403. 33320 T1$[178]"STR$ISK ATNUFRAEUMEN?"
  404. 33330 T2$[178]"(null)IND (null)IE SICHER?"
  405. 33340 [141] 55000:[139] F [167] [142]
  406. 33350 [159] 15,DA,15,"V":[160] 15:[142]
  407. 33360 F$[178]"(null)EUER STR$ISK (null)AME?":T$[178][200](DH$,16):L[178]16:[141] 53000:[139] F [167] [142]
  408. 33370 T1$[178]"STR$ISK (null)OESCHEN?"
  409. 33380 T2$[178]"(null)IND (null)IE SICHER?"
  410. 33390 [141] 55000:[139] F [167] [142]
  411. 33400 [159] 15,DA,15
  412. 33410 [139] [201](T$,1)[178][199](160) [167] T$[178][200](T$,[195](T$)[171]1):[137] 33410
  413. 33420 [152]15,"N";DN$;":";T$
  414. 33430 [132]15,A,A$
  415. 33440 [139] A[178]0 [167] 33470
  416. 33450 T1$[178]"!! STR$ISK ASCEHLER !!"
  417. 33460 T2$[178]A$:[141] 50000
  418. 33470 [160] 15:[142]
  419. 33500 T1$[178]"STR$ISK SCHUETZEN?!"
  420. 33510 T2$[178]"(null)IND (null)IE SICHER?"
  421. 33520 [141] 55000:[139] F [167] [142]
  422. 33530 [159] 15,DA,15
  423. 33540 [152]15,"I"[170]DN$
  424. 33550 [159] 2,DA,2,"#"
  425. 33560 [152]15,"U1 2 ";DN$;18;0
  426. 33570 [152]15,"B-P 2 2"
  427. 33580 [152]2,"X";
  428. 33590 [152]15,"U2 2";DN$;18;0
  429. 33600 [160] 2
  430. 33610 [152]15,"I"[170]DN$
  431. 33620 [160] 15
  432. 33630 F[178]1:[142]
  433. 33650 T1$[178]"STR$ISK FREIGEBEN?!"
  434. 33660 T2$[178]"(null)IND (null)IE SICHER?"
  435. 33670 [141] 55000:[139] F [167] [142]
  436. 33680 [159] 15,DA,15
  437. 33690 [152]15,"I"[170]DN$
  438. 33700 [159] 2,DA,2,"#"
  439. 33710 [152]15,"U1 2 ";DN$;18;0
  440. 33720 [152]15,"M-W";[199](1);[199](1);[199](1);[199](65)
  441. 33730 [152]15,"B-P 2 2"
  442. 33740 [152]2,"A";
  443. 33750 [152]15,"U2 2";DN$;18;0
  444. 33760 [160] 2
  445. 33770 [152]15,"I"[170]DN$
  446. 33780 [160] 15
  447. 33790 F[178]1:[142]
  448. 33970 :
  449. 33980 [143] *** ANDERES ***
  450. 33990 :
  451. 34000 [158] [165]AD(7) :[143] - SCR RETTEN
  452. 34010 [158] [165]AD(13),4,1
  453. 34020 [153] [163]10);"ORTANEXP       /TANTANTANTANTANTANTANTAN^WAIT"
  454. 34030 [153] [163]10);"(null) STR$ISK WECHSELN    (null)WAIT"
  455. 34040 [153] [163]10);"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<WAIT"
  456. 34050 [153] [163]10);"(null) (null)OTIZEN          (null)WAIT"
  457. 34060 [153] [163]10);"(null) (null)USATZ AENDERN   (null)WAIT"
  458. 34070 [153] [163]10);"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<WAIT"
  459. 34080 [153] [163]10);"(null) (null)ROGRAMM STARTEN (null)WAIT"
  460. 34090 [153] [163]10);"(null) PEEKASIC V 2.0      (null)WAIT"
  461. 34100 [153] [163]10);"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT"
  462. 34110 [141] 51000:XO[178]XP:YO[178]YP:[139] YP[179]4 [176] YP[177]12 [167] XP[178]0
  463. 34120 [139] XP[179]10 [176] XP[177]30 [167] FL[178]FL [176] 1:[158] [165]AD(8):[158] [165]AD(18):[142]
  464. 34130 [139] YP[178]6 [176] YP[178]9 [176] YP[178]4 [167] 34110
  465. 34140 [145] YP[171]4 [141] 34170,20000,35000,34300,20000,34190,34180
  466. 34150 [139] FL[179]2 [167] 34110
  467. 34160 [158] [165]AD(8):[158] [165]AD(18):FL[178]FL [176] 1:XO[178]255:[142]
  468. 34170 T1$[178]"STR$ISK WECHSELN"
  469. 34172 T2$[178]"(null)IND (null)IE SICHER?"
  470. 34174 [141] 55000:[139] F [167] [142]
  471. 34178 FL[178]FL [176] 2:[142]
  472. 34180 T1$[178]"(null)AUS STR$(null)(null)"
  473. 34182 T2$[178]"(null)ERLASSEN?"
  474. 34184 [141] 55000:[139] F [167] [142]
  475. 34188 FL[178]FL [176] 4:[142]
  476. 34190 [139] MF%[177]AF% [167] [142]
  477. 34192 T1$[178][202](FE$(MF%),2,16)
  478. 34193 T2$[178]"(null)TARTEN?"
  479. 34194 [141] 55000:[139] F [167] [142]
  480. 34198 FL[178]FL [176] 8:[142]
  481. 34290 [143] --- ZUZATZ BEARBITEN ---
  482. 34300 [158] [165]AD(7)
  483. 34310 [158] [165]AD(13),6,1
  484. 34320 [153] [163]8);"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^WAIT"
  485. 34330 [153] [163]8);"(null) WAIT (null)USATZ PEEKEARBEITEN  (null)WAIT"
  486. 34340 [153] [163]8);"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<WAIT"
  487. 34350 [153] [163]8);"(null) (null)ROGRAMM IN (null)USATZ  (null)WAIT"
  488. 34360 [153] [163]8);"(null) STR$ATEN AENDERN       (null)WAIT"
  489. 34370 [153] [163]8);"(null) (null)USATZ LOESCHEN     (null)WAIT"
  490. 34380 [153] [163]8);"(null) (null)USATZ ABSPEICHERN  (null)WAIT"
  491. 34390 [153] [163]8);"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT"
  492. 34400 [141] 51000:XO[178]XP:YO[178]YP:[139] YP[179]6 [176] YP[177]13 [167] XP[178]0
  493. 34410 [139] XP[179]8 [176] XP[177]30 [167] [158] [165]AD(8):[158] [165]AD(18):FL[178]FL [176] 1:[142]
  494. 34420 [139] YP[179]9 [176] YP[178]13 [167] 34400
  495. 34430 [145] YP[171]8 [141] 34500,34600,34700,34800
  496. 34440 [137] 34400
  497. 34490 [143] --- IN ZUSATZ ---
  498. 34500 [139] AO%[179]10 [167] 34510
  499. 34502 T1$[178]"(null)EIN (null)LATZ MEHR"
  500. 34504 T2$[178]"FUER (null)USAETZE!!"
  501. 34506 [141] 50000
  502. 34508 [142]
  503. 34510 [139] MF%[179]144 [167] 34520
  504. 34512 T1$[178]"(null)EIN (null)ROGRAMM"
  505. 34514 T2$[178]"(null)ARKIERT!!"
  506. 34516 [141] 50000
  507. 34518 [142]
  508. 34520 FO$(AO%)[178][202](FE$(MF%),2,16)
  509. 34522 F$[178]"(null)AME IM (null)ENUE?"
  510. 34524 T$[178]"":L[178]16:[141] 53000: [139] F [167] [142]
  511. 34526 NO$(AO%)[178]T$
  512. 34530 F$[178]"(null)TARTADRESSE?"
  513. 34532 T$[178]"PEEKASIC":L[178]6:[141] 53000:[139] F [167] [142]
  514. 34534 SO(AO%)[178][197](T$):[139] SO(AO%)[179]0 [167] 34530
  515. 34536 [139] SO(AO%)[177]2[174]16[171]1 [167] 34530
  516. 34538 [139] SO(AO%)[179][177][181](SO(AO%)) [167] 34530
  517. 34540 T1$[178]NO$(AO%)
  518. 34542 T2$[178]"UEBERNEHMEN?"
  519. 34544 [141] 55000:[139] F [167] [142]
  520. 34546 AO%[178]AO%[170]1:[142]
  521. 34600 [141] 34900:[139] F [176] NO[178]0 [167] [142]
  522. 34610 F$[178]"(null)EUER (null)AME?"
  523. 34620 T$[178]NO$(NO[171]1):L[178]16:[141] 53000:[139] F [167] [142]
  524. 34630 NO$(NO[171]1)[178]T$
  525. 34640 F$[178]"(null)EUE (null)TARTADDR.?"
  526. 34642 T$[178][202]([196](SO(NO[171]1)),2):[139] SO(NO[171]1)[178]0 [167] T$[178]"PEEKASIC"
  527. 34650 L[178]6:[141] 53000:[139] F [167] [142]
  528. 34660 [139] [197](T$)[179]0 [167] 34640
  529. 34662 [139] [197](T$)[177]2[174]16[171]1 [167] 34640
  530. 34664 [139] [197](T$)[179][177][181]([197](T$)) [167] 34640
  531. 34670 SO(NO[171]1)[178][197](T$):[142]
  532. 34690 [143] --- LOESCHEN ---
  533. 34700 [141] 34900:[139] F [176] NO[178]0 [167] [142]
  534. 34710 T1$[178]NO$(NO[171]1)
  535. 34720 T2$[178]"LESCHEN?"
  536. 34730 [141] 55000:[139] F [167] [142]
  537. 34740 [129] I[178]NO[170]1 [164] AO%
  538. 34750 NO$(I[171]2)[178]NO$(I[171]1):SO(I[171]2)[178]SO(I[171]1):FO$(I[171]2)[178]FO$(I[171]1)
  539. 34760 [130] I
  540. 34770 AO%[178]AO%[171]1:[142]
  541. 34800 T1$[178]"(null)USAETZE"
  542. 34802 T2$[178]"ABSPEICHERN?"
  543. 34804 [141] 55000:[139] F [167] [142]
  544. 34806 [159] 15,DA,15
  545. 34808 [152]15,"S";DN$;":OPTIONS"
  546. 34810 [132]15,A,A$:[139] A[178][179]20 [167] 34820
  547. 34812 T1$[178]"!! STR$ISK ASCEHLER !!"
  548. 34814 T2$[178]A$
  549. 34816 [141] 50000
  550. 34818 [160]2:[160] 15:[142]
  551. 34820 [159] 2,DA,2,DN$[170]":OPTIONS,U,W"
  552. 34822 [132]15,A,A$:[139] A [167] 34812
  553. 34824 [152]2,AO%
  554. 34826 [129] I[178]0 [164] AO%[171]1
  555. 34828 [152]2,[199](34);NO$(I);[199](34);",";FO$(I);",";SO(I)
  556. 34830 [130] I
  557. 34832 [132]15,A,A$:[139] A [167] 34812
  558. 34834 [160] 2
  559. 34836 [160] 15
  560. 34838 [142]
  561. 34900 F[178]0:[139] AO%[177]0 [167] 34910
  562. 34902 T1$[178]"(null)EINE (null)USAETZE"
  563. 34904 T2$[178]"VORHANDEN"
  564. 34906 [141] 50000:F[178]1:[142]
  565. 34910 [158] [165]AD(7):[158] [165]AD(13),4,1
  566. 34920 [153] [163]5);"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^WAIT"
  567. 34922 [153] [163]5);"(null) WAIT    (null)USAETZE:    (null)WAIT"
  568. 34924 [153] [163]5);"-TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN<WAIT"
  569. 34926 [129] I[178]0 [164] AO%[171]1
  570. 34928 [153] [163]5);"(null) ";[200](NO$(I)[170]"             ",16);" (null)WAIT"
  571. 34930 [130] I
  572. 34932 [153] [163]5);"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPWAIT"
  573. 34934 [141] 51000:XO[178]XP:YO[178]YP:[139] YP[179]4 [176] YP[177]7[170]AO% [167] XP[178]0
  574. 34936 [139] XP[179]5 [176] XP[177]25 [167] [158] [165]AD(8):[158] [165]AD(18):NO[178]0:FL[178]FL [176] 1:[142]
  575. 34938 [139] YP[179]7 [176] YP[178]8[170]AO% [167] NO[178]0:[137] 34950
  576. 34940 NO[178]YP[171]6
  577. 34950 [158] [165]AD(8):[158] [165]AD(18):[142]
  578. 34994 :
  579. 34996 [143] *** NOTIZEN ***
  580. 34998 :
  581. 35000 [158] [165]AD(7):[158] [165]AD(13),2,1:[151] 198,0
  582. 35002 Q$[178]"":[129] I[178]217 [164] 242:Q$[178]Q$[170][199]([194](I)):[130] I
  583. 35010 [153]" F1 - (null)EILE LOESCHEN  F3 - (null)EILE EINF.  WAIT";
  584. 35020 [153]" F5 - (null)EST LOESCHEN   F7 - DRUCKEN      WAIT";
  585. 35030 [158] [165]AD(13),24,1
  586. 35032 [158] [165]AD(13),24,1:[153]" (null)(null)(null)(null) - (null)PEICHERN UND ZURUECK           WAIT";
  587. 35034 [153]" ANDERE (null)ASTEN - NORMALE ASCUNKTION      WAIT";
  588. 35036 X[178]1:Y[178]0
  589. 35038 [158] [165]AD(16),4,1,20,40,32,[194](646)
  590. 35040 [129] I[178]0 [164] 19
  591. 35050 [158] [165]AD(13),I[170]4,1:[153]NP$(I);
  592. 35060 [130] I
  593. 35100 [158] [165]AD(14),Y[170]4,X,1,1
  594. 35110 [161] A$:[139] A$[178]"" [167] 35110
  595. 35120 [158] [165]AD(15),Y[170]4,X,1,1
  596. 35150 A[178][198](A$):[139] A[179]31 [176](A[177]127 [175] A[179]160)[167] 35300
  597. 35160 [158] [165]AD(13),Y[170]4,X:[153] A$;
  598. 35170 NP$(Y)[178][200](NP$(Y),X[171]1)[170]A$[170][202](NP$(Y),X[170]1)
  599. 35180 X[178]X[170]1:[139] X[177]40 [167] X[178]1:Y[178]Y[170]1:[139] Y[177]19 [167] Y[178]19:X[178]40
  600. 35190 [137] 35100
  601. 35300 [139] A[178]13 [176] A[178]141 [167] X[178]1:Y[178]Y[170]1:[139] Y[177]19 [167] Y[178]19
  602. 35310 [139] A[178]20 [167] X[178]X[171]1:[139] X[178]0 [167] X[178]40:Y[178]Y[171]1:[139] Y[179]0 [167] Y[178]0
  603. 35320 [139] A[178]20 [167] NP$(Y)[178][200](NP$(Y),X[171]1)[170][202](NP$(Y),X[170]1)[170]" "
  604. 35330 [139] A[178]148 [167] NP$(Y)[178][200]([200](NP$(Y),X[171]1)[170]" "[170][202](NP$(Y),X),40)
  605. 35340 [139] A[178]20 [176] A[178]148 [167] [158] [165]AD(13),Y[170]4,1:[153] NP$(Y)
  606. 35350 [139] A[178]19 [167] Y[178]0:X[178]1
  607. 35360 [139] A[179][177]147 [167] 35390
  608. 35370 : [129] I[178]0 [164] 19:NP$(I)[178]"                                        ":[130] I
  609. 35380 X[178]1:Y[178]0:[137] 35040
  610. 35390 [139] A[178]133 [167] [129] I[178]Y [164] 18:NP$(I)[178]NP$(I[170]1):[130] I
  611. 35400 [139] A[178]133 [167] NP$(19)[178]"                                        "
  612. 35410 [139] A[178]134 [167] [129] I[178]19 [164] Y[170]1 [169][171]1:NP$(I)[178]NP$(I[171]1):[130] I
  613. 35420 [139] A[178]134 [167] NP$(Y)[178]"                                        "
  614. 35430 [139] A[178]133 [176] A[178]134 [167] [129] I[178]Y [164] 19:[158] [165]AD(13),I[170]4,1:[153] NP$(I):[130] I
  615. 35440 [139] A[178]135 [167] NP$(Y)[178][200](NP$(Y),X[171]1)
  616. 35450 [139] A[178]135[167]NP$(Y)[178][200](NP$(Y)[170]"                                        ",40)
  617. 35455 [139] A[178]135 [167] [158] [165]AD(13),Y[170]4,1:[153] NP$(Y)
  618. 35460 [139] A[178]136 [167] [129] I[178]217 [164] 242:[151] I,[198]([202](Q$,I[171]216)[170][199](0)):[130] I
  619. 35462 [139] A[178]136 [167] [158] [165]AD(13),2,2:[153] "       WAIT":[141] 52000
  620. 35464 [139] A[178]136 [167] [158] [165]AD(13),2,2:[153] "F1 - (null)EWAIT"
  621. 35466 [139] A[178]17 [167] Y[178]Y[170]1:[139] Y[177]19 [167] Y[178]19
  622. 35470 [139] A[178]145 [167] Y[178]Y[171]1:[139] Y[179]0 [167] Y[178]0
  623. 35475 [139] A[178]29 [167] X[178]X[170]1:[139] X[177]40 [167] X[178]1:Y[178]Y[170]1:[139] Y[177]19 [167] Y[178]19:X[178]40
  624. 35480 [139] A[178]157 [167] X[178]X[171]1:[139] X[179]1 [167] X[178]40:Y[178]Y[171]1:[139] Y[179]0 [167] Y[178]0:X[178]1
  625. 35490 [139] A[179][177]3 [167] [137] 35100
  626. 35500 [129] I[178]217 [164] 242:[151] I,[198]([202](Q$,I[171]216)[170][199](0)):[130] I
  627. 35502 [158] [165]AD(13),2,2:[153] "STR$RUCKENWAIT"
  628. 35504 T1$[178]"(null)OTIZEN"
  629. 35510 T2$[178]"APSPEICHERN?"
  630. 35520 [141] 55000:[139] F[178]0 [167] [141] 47000
  631. 35530 [158] [165]AD(8):[158] [165]AD(18):[142]
  632. 36000 [137] 9999
  633. 39970 :
  634. 39980 [143] *** SHOW SCREEN ***
  635. 39990 :
  636. 40000 [158] [165]AD(0):[143] * MAUS STARTEN
  637. 40002 [153]
  638. 40004 [153]"LOAD";[199](14);[199](8);
  639. 40010 [153]"============= (null)ATN(null)(null) STR$(null)(null)  64 =============";
  640. 40020 [153]" STR$RUCKEN  NAECHSTE (null)EITE  LETZTE (null)EITE"
  641. 40030 [153]" ASCILE  STR$ISK  ATNNDERES  (null)USATZ  (null)ARAMETER"
  642. 40032 [158] [165]AD(13),10,1
  643. 40034 [153] [163]9);"(LEN) 1986  BY STR$IRK MID$ANSEN"
  644. 40036 [153] [163]10);"(null)ERSION 1.0 04.05.1986"
  645. 40040 [158] [165]AD(13),24,1
  646. 40048 [153]" ASCILE:................ (null)YP:..... PEEKLK:...";
  647. 40050 [153]" STR$ISK:................ RIGHT$STR$:..... ASCRE:...";
  648. 40060 [158] [165]AD(14),1,1,3,40
  649. 40070 [158] [165]AD(14),24,1,2,40
  650. 40080 [142]
  651. 40970 :
  652. 40980 [143] *** INSERT DISK ***
  653. 40990 :
  654. 41000 T1$[178]" PEEKITTE STR$ISKETTE"
  655. 41010 T2$[178]"   EINLEGEN !!"
  656. 41020 [141] 50000
  657. 41030 [159] 15,DA,15
  658. 41040 [152]15,"I"
  659. 41050 [132]15,A:[139] A[179][177]0 [167] 41000
  660. 41060 [160] 15
  661. 41070 [142]
  662. 41970 :
  663. 41980 [143] *** READ PARAMETER ***
  664. 41990 :
  665. 42000 [159] 15,DA,15
  666. 42010 [159] 2,DA,2,DN$[170]":PARAMETER,U,R"
  667. 42020 [132]15,A,A$:[139] A[178]0 [167] 42090
  668. 42022 [139] A[178]62 [167] 42500
  669. 42030 [160] 2
  670. 42040 [160] 15
  671. 42050 T1$[178]"! STR$ISK  ASCEHLER !"
  672. 42060 T2$[178]A$
  673. 42070 [141] 50000
  674. 42080 [137] 42000
  675. 42090 [161]#2,A$,B$,C$:[143] - FARBEN HOLEN
  676. 42100 [151] 53280,[198](A$[170][199](0)):[143] - RAHMEN
  677. 42110 [151] 53281,[198](B$[170][199](0)):[143] - HINTERGRUND
  678. 42120 [151] 646,[198](C$[170][199](0)):[143] - TEXT
  679. 42122 [158] [165]AD(18):[143] - TEXT FARBE SETZEN
  680. 42130 [161]#2,A$,B$:[143] - MAUS DATEN
  681. 42140 [151] 703,[198](A$[170][199](0)):[143] - MAUS DATEN (FARBE)
  682. 42150 [151] 693,[198](B$[170][199](0)):[143] - MAUS SPEED
  683. 42160 [161]#2,A$,B$,C$,D$:[143] - GERAETE NUMMERN
  684. 42170 DA[178][198](A$[170][199](0)):[143] - UNIT DISK (8-15)
  685. 42180 DN$[178]B$:[143] - DIRVE DISK (0/1)
  686. 42190 PA[178][198](C$[170][199](0)):[143] PRINTER ADR. (2/4-6)
  687. 42200 PS[178][198](D$[170][199](0)):[143] SEC. ADR. (0-15)
  688. 42210 LP$[178]"":[143] - EINST. 8 LPI LESEN BIS $FF
  689. 42220 [161]#2,A$:[139] A$[179][199](255) [167] LP$[178]LP$[170]A$:[137] 42220
  690. 42230 GK$[178]"":[143] - UMSCHALTEN GROSS/KLEIN
  691. 42240 [161]#2,A$:[139] A$[179][199](255) [167] GK$[178]GK$[170]A$:[137] 42240
  692. 42250 RE$[178]"":[143] - REVERS EIN
  693. 42260 [161]#2,A$:[139] A$[179][199](255) [167] RE$[178]RE$[170]A$:[137] 42260
  694. 42270 RA$[178]"":[143] - REVERS AUS
  695. 42280 [161]#2,A$:[139] A$[179][199](255) [167] RA$[178]RA$[170]A$:[137] 42280
  696. 42290 CR$[178]"":[143] - RETURN ZEICHEN
  697. 42300 [161]#2,A$:[139] A$[179][199](255) [167] CR$[178]CR$[170]A$:[137] 42300
  698. 42310 [132]15,A,A$:[139] A[177]0 [167] 42030
  699. 42320 [160] 2
  700. 42330 [160] 15
  701. 42340 [142]
  702. 42500 [151] 53280,0:[143] - RAHMEN SCHWARZ
  703. 42510 [151] 53281,0:[143] - BILD SCHWARZ
  704. 42520 [151] 646,7:[143]- TEXT GELB
  705. 42530 [158] [165]AD(18)
  706. 42540 [151] 703,11:[143] - MAUS FARBE GRAU1
  707. 42542 [151] 693,230:[143] - MAUS SPEED
  708. 42550 DA[178]8:DN$[178]"0":[143] - FLOPPY ADRESSEN
  709. 42560 PD[178]4:PS[178]7:[143] - DRUCKER ADRSSEN
  710. 42570 LP$[178]"":[143] - KEIN CODE FUER 8 LPI
  711. 42580 GK$[178]"":[143] - KEINE UMSCHALTUNG
  712. 42590 RE$[178]"":[143] - RVS EIN
  713. 42600 RA$[178]"WAIT":[143] - RVS AUS
  714. 42610 CR$[178][199](8)[170][199](13)[170][199](15):[143] - CR CODE MPS 801
  715. 42620 [137] 42320
  716. 42970 :
  717. 42980 [143] *** READ NOTE PAD ***
  718. 42990 :
  719. 43000 [159] 15,DA,15
  720. 43010 [159] 2,DA,2,DN$[170]":NOTE PAD,U,R"
  721. 43020 [132]15,A,A$
  722. 43030 [139] A[178]0 [167] 43100
  723. 43032 [139] A[178]62 [167] 43180
  724. 43040 T1$[178]"! STR$ISK  ASCEHLER !"
  725. 43050 T2$[178]A$
  726. 43060 [160] 2
  727. 43070 [160] 15
  728. 43080 [141] 50000
  729. 43090 [137] 43000
  730. 43100 [129] I[178]0 [164] 19
  731. 43110 [132]2,NP$(I)
  732. 43120 [130] I
  733. 43130 [137] 43150
  734. 43140 [139] A[177]0 [167] 43040
  735. 43150 [160] 2
  736. 43160 [160] 15
  737. 43170 [142]
  738. 43180 [129] I[178]0 [164] 19
  739. 43190 NP$(I)[178]"                                        "
  740. 43200 [130] I
  741. 43210 [137] 43150
  742. 43970 :
  743. 43980 [143] *** READ OPTIONS ***
  744. 43990 :
  745. 44000 [159] 15,DA,15
  746. 44010 [159] 2,DA,2,DN$[170]":OPTIONS,U,R"
  747. 44020 [132]15,A,A$
  748. 44030 [139] A[178]0 [167] 44100
  749. 44032 [139] A[178]62 [167] AO%[178]0:[137] 44170
  750. 44040 T1$[178]"! STR$ISK  ASCEHLER !"
  751. 44050 T2$[178]A$
  752. 44060 [160] 2
  753. 44070 [160] 15
  754. 44080 [141] 50000
  755. 44090 [137] 44000
  756. 44100 [132]2,AO%:[143] - ANZ. OPTIONS
  757. 44110 [139] AO%[178]0 [167] 44150
  758. 44120 [129] I[178]0 [164] AO%[171]1
  759. 44130 [132]2,NO$(I),FO$(I),SO(I)
  760. 44140 [130] I
  761. 44150 [132]15,A,A$
  762. 44160 [139] A[177]0 [167] 44040
  763. 44170 [160] 2
  764. 44180 [160] 15
  765. 44190 [142]
  766. 44970 :
  767. 44980 [143] *** READ DIRECTORY ***
  768. 44990 :
  769. 45000 [159] 15,DA,15
  770. 45010 [159] 2,DA,2,"#"
  771. 45020 [132]15,A,A$
  772. 45030 [139] A[178]0 [167] 45100
  773. 45040 T1$[178]"! STR$ISK  ASCEHLER !"
  774. 45050 T2$[178]A$
  775. 45060 [160] 2
  776. 45070 [160] 15
  777. 45080 [141] 50000
  778. 45090 [137] 45000
  779. 45100 DH$[178]""
  780. 45102 [143]
  781. 45110 [152]15,"U1:";2;DN$;18;0
  782. 45120 [152]15,"B-P: 2 144"
  783. 45130 [129] I[178]144 [164] 166
  784. 45140 [161]#2,A$:DH$[178]DH$[170][200](A$[170][199](0),1)
  785. 45150 [130] I
  786. 45160 [158] [165]AD(13),25,7:[153] "";[202](DH$,1,16);"WAIT";
  787. 45170 [158] [165]AD(13),25,27:[153] "";[202](DH$,19,5);"WAIT";
  788. 45180 N[178]0:F[178]0
  789. 45190 [152]15,"B-P:";2;0
  790. 45200 [161]#2,T$,S$:T[178][198](T$[170][199](0)):S[178][198](S$[170][199](0))
  791. 45210 [139] T[178]0 [176] S[178]255 [167] 45290
  792. 45220 [152]15,"U1:";2;DN$;T;S
  793. 45230 [129] I[178]0 [164] 7
  794. 45240 FE$(N)[178]"":[152]15,"B-P: 2";2[170]32[172]I
  795. 45250 [161]#2,FE$(N):[139] [198](FE$(N)[170][199](0))[178]0 [167] 45270
  796. 45252 [161]#2,A$,A$:[143] T,S UEBERLESEN
  797. 45260 [129] J[178]1 [164] 16:[161]#2,A$:FE$(N)[178]FE$(N)[170][200](A$[170][199](0),1):[130] J:[143] NAMEN
  798. 45261 [152]15,"B-P: 2";2[170]32[172]I[170]28
  799. 45262 [161]#2,A$,B$:FE$(N)[178]FE$(N)[170][200](A$[170][199](0),1)[170][200](B$[170][199](0),1)
  800. 45263 FE$(N)[178]FE$(N)[170]T$[170]S$[170][199](2[170]32[172]I)
  801. 45264 F[178]F[170][198](A$[170][199](0))[170][198](B$[170][199](0))[172]256
  802. 45266 N[178]N[170]1
  803. 45270 [130] I
  804. 45280 [137] 45190
  805. 45290 AF%[178]N[171]1
  806. 45300 [160] 2
  807. 45310 [160] 15
  808. 45320 FB%[178]664[171]F
  809. 45330 [158] [165]AD(13),25,37:[153] "";[201]("  "[170][196](FB%),3);"WAIT";
  810. 45332 [143]
  811. 45340 [142]
  812. 45970 :
  813. 45980 [143] *** WRITE PARAMETER ***
  814. 45990 :
  815. 46000 [159] 15,DA,15,"S"[170]DN$[170]":PARAMETER"
  816. 46010 [159] 2,DA,2,DN$[170]":PARAMETER,U,W"
  817. 46020 [132]15,A,A$:[139] A[178]0 [167] 46100
  818. 46030 [160] 2
  819. 46040 [160] 15
  820. 46050 T1$[178]"! STR$ISK  ASCEHLER !"
  821. 46060 T2$[178]A$
  822. 46070 [141] 50000
  823. 46080 [137] 46000
  824. 46100 [152]2,[199]([194](53280) [175] 15);:[143] - RAHMEN
  825. 46110 [152]2,[199]([194](53281) [175] 15);:[143] - HINTERGRUND
  826. 46120 [152]2,[199]([194](646) [175] 15);:[143] - TEXT
  827. 46140 [152]2,[199]([194](703));:[143] - MAUS DATEN (FARBE)
  828. 46150 [152]2,[199]([194](693));:[143] - MAUS SPEED
  829. 46170 [152]2,[199](DA);:[143] - UNIT DISK (8-15)
  830. 46180 [152]2,DN$;:[143] - DIRVE DISK (0/1)
  831. 46190 [152]2,[199](PA);:[143] PRINTER ADR. (2/4-6)
  832. 46200 [152]2,[199](PS);:[143] SEC. ADR. (0-15)
  833. 46210 [152]2,LP$;[199](255);:[143] - EINST. 8 LPI LESEN BIS $FF
  834. 46230 [152]2,GK$;[199](255);:[143] - UMSCHALTEN GROSS/KLEIN
  835. 46250 [152]2,RE$;[199](255);:[143] - REVERS EIN
  836. 46270 [152]2,RA$;[199](255);:[143] - REVERS AUS
  837. 46290 [152]2,CR$;[199](255);:[143] - RETURN ZEICHEN
  838. 46310 [132]15,A,A$:[139] A[177]0 [167] 46030
  839. 46320 [160] 2
  840. 46330 [160] 15
  841. 46340 [142]
  842. 46970 :
  843. 46980 [143] *** WRITE NOTE PAD ***
  844. 46999 :
  845. 47000 [159] 15,DA,15,"S"[170]DN$[170]":NOTE PAD"
  846. 47010 [159] 2,DA,2,DN$[170]":NOTE PAD,U,W"
  847. 47020 [132]15,A,A$:[139] A[178]0 [167] 47100
  848. 47030 [160] 2
  849. 47040 [160] 15
  850. 47050 T1$[178]"! STR$ISK  ASCEHLER !"
  851. 47060 T2$[178]A$
  852. 47070 [141] 50000
  853. 47080 [137] 47000
  854. 47100 [129] I[178]0 [164] 19
  855. 47110 [152]2,[199](34);NP$(I);[199](34)
  856. 47120 [130] I
  857. 47130 [132]15,A,A$
  858. 47140 [139] A[177]0 [167] 47030
  859. 47150 [160] 2
  860. 47160 [160] 15
  861. 47170 [142]
  862. 49970 :
  863. 49980 [143] *** WARNING WINDOW OUT ***
  864. 49990 :
  865. 50000 [158] [165]AD(7):[143] - SCR AUF STACK
  866. 50002 [158] [165]AD(13),2,9
  867. 50004 [153]"                              WAIT"
  868. 50006 [158] [165]AD(13),3,1
  869. 50008 [153]"                                       WAIT"
  870. 50010 [158] [165]AD(13),8,1
  871. 50020 [153] [163]10);"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  872. 50030 [153] [163]10);"(null)                  WAIT(null)"
  873. 50040 [153] [163]10);"(null) ";[200](T1$[170]"                ",16);" WAIT(null)"
  874. 50050 [153] [163]10);"(null)                  WAIT(null)"
  875. 50060 [153] [163]10);"(null) ";[200](T2$[170]"                ",16);" WAIT(null)"
  876. 50070 [153] [163]10);"(null)       *NEWNEWRND       WAIT(null)"
  877. 50080 [153] [163]10);"(null)       WAITGET(null)(null)GET       WAIT(null)"
  878. 50090 [153] [163]10);"(null)       LOGWAITNEWNEWCOS       WAIT(null)"
  879. 50100 [153] [163]10);"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  880. 50110 FL[178]FL [176] 128:[141] 51000:[143] * GET MAUS POS
  881. 50120 [139] [168](XP[177]17 [175] XP[179]21 [175] YP[177]13 [175] YP[179]16) [167] [137] 50110
  882. 50130 [158] [165]AD(8):[158] [165]AD(18):FL[178]FL [175] 127:[142]
  883. 50970 :
  884. 50980 [143] *** GET MAUS POS ***
  885. 50990 :
  886. 51000 [139] (FL [175] 1)[178]1 [167] XP[178]XO:YP[178]YO:FL[178]FL [175] 254:[137] 51050
  887. 51030 [158] [165]AD(3)
  888. 51040 XP[178][165]XT(0):YP[178][165]YT(0)
  889. 51050 [139] YP[179]4 [176] YP[177]23 [167] FL[178]FL [176] 64
  890. 51052 [139] YP[177]3 [175] YP[179]24 [167] FL[178]FL [175] 191
  891. 51060 [139] YP[178]2 [175] XP[179]11 [167] [141] 52000:[137] 51000:[143] * HARDCOPY
  892. 51070 [139] (FL [175] 128)[178]128 [167] [142]
  893. 51080 [139] YP[178]3 [175] (FL [175] 32)[178]32 [167] [142]
  894. 51090 [139] YP[179][177]3 [167] [142]
  895. 51092 [139] [165]ST(0)[177]5 [167] [142]
  896. 51100 [139] XP[179]6 [167] [141] 32000:[143] * FILE
  897. 51110 [139] XP[177]5 [175] XP[179]13 [175] YP[178]3 [167] [141] 33000:[143] * DISK
  898. 51120 [139] XP[177]12 [175] XP[179]22 [175] YP[178]3 [167] [141] 34000:[143] * ANDERES
  899. 51130 [139] XP[177]21 [175] XP[179]29 [175] YP[178]3 [167] [141] 31000:[143] * ZUSATZ
  900. 51140 [139] XP[177]28 [175] YP[178]3 [167] [141] 30000:[143] * PARAMETER
  901. 51150 [137] 51000
  902. 51970 :
  903. 51980 [143] *** HARD COPY ***
  904. 51990 :
  905. 52000 T1$[178]"PEEKILDSCHIRMINHALT"
  906. 52002 T2$[178]"ATNUSDRUCKEN?"
  907. 52004 [141] 55000:[139] F [167] [142]
  908. 52008 [151] 198,0
  909. 52010 F[178]0
  910. 52020 [159] 4,PA,PS
  911. 52030 [152]4,LP$;GK$;
  912. 52110 [129] I[178]0 [164] 24
  913. 52120 [129] J[178]0 [164] 39
  914. 52130 A[178][194](J[170]I[172]40[170]1024)
  915. 52140 F[178][171](A[177]127):A[178]A[170](A[177]127)[172]128
  916. 52150 [139] A[179]32 [167] B[178]A[170]64
  917. 52160 [139] A[177]31 [175] A[179]64 [167] B[178]A
  918. 52170 [139] A[177]63 [175] A[179]96 [167] B[178]A[170]32
  919. 52180 [139] A[177]95 [167] B[178]A[170]64
  920. 52190 [139] F[178]1 [175] C[179][177]F [167] [152]4,RE$;
  921. 52200 [139] F[178]0 [175] C[179][177]F [167] [152]4,RA$;
  922. 52210 C[178]F
  923. 52220 [152]4,[199](B);
  924. 52222 [161] A$:[139] A$[178]"" [167] I[178]24:J[178]39
  925. 52230 [130] J
  926. 52240 [152]4,CR$;:C[178]0
  927. 52250 [130] I
  928. 52260 [160] 4
  929. 52300 [143]
  930. 52400 [142]
  931. 52970 :
  932. 52980 [143] *** INPUT ***
  933. 52990 :
  934. 53000 P[178]1:[151] 198,0
  935. 53010 [158] [165]AD(7)
  936. 53020 [158] [165]AD(13),9,1
  937. 53030 [153] [163]8);"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  938. 53040 [153] [163]8);"(null)                      WAIT(null)"
  939. 53050 [153] [163]8);"(null) ";[200](F$[170]"                   ",20);" WAIT(null)"
  940. 53060 [153] [163]8);"(null)                      WAIT(null)"
  941. 53070 [153] [163]8);"(null) <";[200]("                  ",L);">";
  942. 53080 [153] [200]("                  ",18[171]L);" WAIT(null)"
  943. 53090 [153] [163]8);"(null)                      WAIT(null)"
  944. 53100 [153] [163]8);"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  945. 53110 [158] [165]AD(13),13,12:[153] "";T$;[200]("                 ",L[171][195](T$))
  946. 53120 [158] [165]AD(13),14,10[170]P:[153]" TAB( WAIT"
  947. 53130 [161] A$:[139] A$[178]"" [167] 53130
  948. 53140 [139] A$[178]"CMD" [175] P[177]1 [167] P[178]P[171]1:[137] 53120
  949. 53150 [139] A$[178]"" [175] P[179][178][195](T$) [175] P[179]L [167] P[178]P[170]1:[137] 53120
  950. 53160 [139] A$[178]"LOAD" [167] T$[178]"":A$[178]""
  951. 53170 [139] A$[178]"" [167] [158] [165]AD(13),14,11[170]P:[153]" WAIT":P[178]1:[137] 53110
  952. 53180 [139] A$[178][199](20) [175] P[177]1 [167] P[178]P[171]1:T$[178][200](T$,P[171]1)[170][202](T$,P[170]1):[137] 53110
  953. 53190 [139] A$[178]"SAVE" [167] T$[178][200](T$,P[171]1)[170]" "[170][202](T$,P):[137] 53110
  954. 53200 [139] A$[178][199](13) [167] F[178]0:[137] 53260
  955. 53210 [139] A$[178]"" [167] F[178]1:[137] 53260
  956. 53220 [139] A$[178][199](141) [167] F[178][171]1:[137] 53260
  957. 53230 [139] A$[179][199](32) [176] (A$[177][199](127) [175] A$[179][199](160)) [167] 53130
  958. 53240 T$[178][200](T$,P[171]1)[170]A$[170][202](T$,P[170]1):[139] P[179]L [167] P[178]P[170]1
  959. 53250 [137] 53110
  960. 53260 [158] [165]AD(8):[142]
  961. 53970 :
  962. 53980 [143] *** SHOW FILES ***
  963. 53990 :
  964. 54000 [158] [165]AD(16),4,1,20,40,32,[194](646)
  965. 54010 [129] I[178]0 [164] 19
  966. 54020 [158] [165]AD(13),4[170]I,1:[153]" ";
  967. 54030 [139] I[170]SF%[178]MF% [167] [153]"CMDSQR";
  968. 54040 [139] I[170]SF%[179][178]AF% [167] [153] [202](FE$(SF%[170]I),2,16);
  969. 54050 [158] [165]AD(13),4[170]I,21:[153]" ";
  970. 54060 [139] I[170]SF%[170]20[178]MF% [167] [153]"CMDSQR";
  971. 54070 [139] I[170]SF%[170]20[179][178]AF% [167] [153] [202](FE$(SF%[170]20[170]I),2,16);
  972. 54080 [130] I
  973. 54090 [142]
  974. 54970 :
  975. 54980 [143] *** ASK YES/NO ***
  976. 54990 :
  977. 55000 [158] [165]AD(7):[143] - SCR AUF STACK
  978. 55002 [158] [165]AD(13),2,9
  979. 55004 [153]"                              WAIT"
  980. 55006 [158] [165]AD(13),3,1
  981. 55008 [153]"                                       WAIT"
  982. 55010 [158] [165]AD(13),8,1
  983. 55020 [153] [163]10);"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^"
  984. 55030 [153] [163]10);"(null)                  WAIT(null)"
  985. 55040 [153] [163]10);"(null) ";[200](T1$[170]"                ",16);" WAIT(null)"
  986. 55050 [153] [163]10);"(null)                  WAIT(null)"
  987. 55060 [153] [163]10);"(null) ";[200](T2$[170]"                ",16);" WAIT(null)"
  988. 55070 [153] [163]10);"(null) *NEWNEWRND      *NEWNEWNEWNEWRND WAIT(null)"
  989. 55080 [153] [163]10);"(null) WAITGETMID$AGET      WAITGET(null)EINGET WAIT(null)"
  990. 55090 [153] [163]10);"(null) LOGWAITNEWNEWCOS      LOGWAITNEWNEWNEWNEWCOS WAIT(null)"
  991. 55100 [153] [163]10);"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXP"
  992. 55110 FL[178]FL [176] 128:[141] 51000:[143] * GET MAUS POS
  993. 55120 [139] XP[177]11 [175] XP[179]16 [175] YP[177]12 [175] YP[179]16 [167] F[178]0:[137] 55130
  994. 55122 [139] XP[177]21 [175] XP[179]28 [175] YP[177]12 [175] YP[179]16 [167] F[178]1:[137] 55130
  995. 55124 [137] 55110
  996. 55130 [158] [165]AD(8):[158] [165]AD(18):FL[178]FL [175] 127:[142]
  997. 59970 :
  998. 59980 [143] *** DATEN ***
  999. 59990 :
  1000. 60000 [143] --- COLOR NAMES ---
  1001. 60010 [131] SCHWARZ,WEISS,ROT,TUERKIS
  1002. 60020 [131] VIOLETT,GRUEN,BLAU,GELB
  1003. 60030 [131] ORANGE,BRAUN,HELLROT,GRAU 1
  1004. 60040 [131] GRAU 2,HELLGRUEN,HELLBLAU,GRAU 3
  1005. 60050 [143] -------------------
  1006. 60060 :
  1007. 60070 [143] --- FILE TYPES ---
  1008. 60080 [131] "STR$VAL(null)","(null)VAL(null)","(null)(null)CHR$","(null)(null)(null)","(null)VAL(null)"
  1009. 60090 [143] ------------------
  1010. 60100 :
  1011. 60110 [143] --- ERROR TEXT ---
  1012. 60120 [131] "(null)UELLE UNBEKANNT"
  1013. 60130 [131] "*ZU VIELE STR$ATEIEN"
  1014. 60140 [131] "*STR$ATEI OFFEN"
  1015. 60150 [131] "*STR$ATEI NICHT OFFEN"
  1016. 60160 [131] "STR$ATEI NICHT GEFUNDEN"
  1017. 60170 [131] "CHR$ERAET NICHT VORHANDEN"
  1018. 60180 [131] "*KEINE VALINGABE-STR$ATEI"
  1019. 60190 [131] "*KEINE ATNUSGABE-STR$ATEI"
  1020. 60200 [131] "*KEIN STR$ATEINAME ANGEGEBEN"
  1021. 60210 [131] "FALSCHE CHR$ERAETENUMMER"
  1022. 60220 [131] "*(null)VAL(null)(null) OHNE ASC(null)(null)"
  1023. 60230 [131] "*(null)YNTAX ASCEHLER"
  1024. 60240 [131] "*(null)VAL(null)(null)(null)(null) OHNE CHR$(null)(null)(null)PEEK"
  1025. 60250 [131] "*ZU WENIG STR$ATEN"
  1026. 60260 [131] "FALSCHER (null)ERTEBEREICH"
  1027. 60270 [131] "PEEKEREICH UEBERSCHRITTEN"
  1028. 60280 [131] "*(null)PEICHER VOLL"
  1029. 60290 [131] "*(null)PRUNGZIEL NICHR GEFUNDEN"
  1030. 60300 [131] "*ASCALSCHE (null)MSCHREIBUNG"
  1031. 60310 [131] "*DOPPELTES ASCELD"
  1032. 60320 [131] "(null)EILEN DURCH (null)ULL"
  1033. 60330 [131] "*STR$IREKTMODUS"
  1034. 60340 [131] "*STR$ATEN-(null)YP FALSCH"
  1035. 60350 [131] "*(null)EXT ZU LANG"
  1036. 60360 [131] "STR$ATEI-STR$ATEN FALSCH"
  1037. 60370 [131] "*ASCORMEL ZU KOMPLEX"
  1038. 60380 [131] "*LEN(null)(null)(null) NICHT ERLAUBT"
  1039. 60390 [131] "*ASCUNKTION UMBEKANNT"
  1040. 60400 [131] "*STR$ATEI-(null)EST ASCEHLER"
  1041. 60410 [131] "(null)ADE ASCEHLER"
  1042.